inherited FRM_PesquisaProdutoSubgrupo: TFRM_PesquisaProdutoSubgrupo
  Left = 750
  Top = 211
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    inherited edtPesquisar: TAdvEdit
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'COD_SUBGRUPO'
          Title.Alignment = taCenter
          Title.Caption = 'C'#243'digo'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o dos Sub-Grupos Registrados'
          Width = 303
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PERC_DESCTO'
          Title.Alignment = taCenter
          Title.Caption = '(%) Descto'
          Width = 101
          Visible = True
        end>
    end
    inherited pnlTitulo: TPanel
      Caption = 'Pesquisar Lista de Sub-Grupos para Produtos'
      inherited Image2: TImage
        Left = 16
      end
    end
  end
  inherited sqlPesquisar: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'grupo'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  pg.cod_subgrupo,'
      '  pg.descricao,'
      '  pg.perc_descto,'
      '  pg.perc_margem'
      'from PRODUTO_SUBGRUPO pg'
      'where pg.situacao = '#39'True'#39' and pg.lig_cod_grupo = :grupo'
      'order by pg.descricao')
  end
  inherited cdsPesquisar: TClientDataSet
    object cdsPesquisarCOD_SUBGRUPO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_SUBGRUPO'
      Required = True
    end
    object cdsPesquisarDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsPesquisarPERC_DESCTO: TFMTBCDField
      FieldName = 'PERC_DESCTO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsPesquisarPERC_MARGEM: TFMTBCDField
      FieldName = 'PERC_MARGEM'
      Precision = 15
      Size = 2
    end
  end
end
